Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/getdis1r/form1.frm

Visual Basic Form | 1999-07-26 | 16.1 KB | 536 lines

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{F3376356-3242-11D3-83BB-F6844B1D6002}#1.1#0"; "CONTROLRESIZER.OCX"
Begin VB.Form frmBrowser
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "<Your Program Name Here>"
   ClientHeight    =   6276
   ClientLeft      =   36
   ClientTop       =   612
   ClientWidth     =   9528
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   523
   ScaleMode       =   0  'User
   ScaleWidth      =   1.033
   StartUpPosition =   2  'CenterScreen
   Begin VB.ComboBox lstfavs
      Height          =   288
      Left            =   5640
      TabIndex        =   9
      Top             =   480
      Visible         =   0   'False
      Width           =   3852
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1
      Height          =   5412
      Left            =   0
      TabIndex        =   8
      Top             =   840
      Width           =   9492
      ExtentX         =   16743
      ExtentY         =   9546
      ViewMode        =   1
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   0
      AutoArrange     =   -1  'True
      NoClientEdge    =   -1  'True
      AlignLeft       =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin VB.CommandButton Command5
      Caption         =   "Home"
      Height          =   420
      Left            =   3960
      TabIndex        =   7
      ToolTipText     =   "Home"
      Top             =   0
      Width           =   904
   End
   Begin VB.CommandButton Command4
      Caption         =   "Stop"
      Height          =   420
      Left            =   3000
      TabIndex        =   6
      ToolTipText     =   "Stop"
      Top             =   0
      Width           =   904
   End
   Begin VB.CommandButton Command3
      Caption         =   "Refresh"
      Height          =   420
      Left            =   2040
      TabIndex        =   5
      ToolTipText     =   "Refresh"
      Top             =   0
      Width           =   904
   End
   Begin VB.CommandButton Command2
      Caption         =   "Forward"
      Height          =   420
      Left            =   1080
      TabIndex        =   4
      ToolTipText     =   "Forward"
      Top             =   0
      Width           =   904
   End
   Begin VB.CommandButton Command1
      Caption         =   "Back"
      Height          =   420
      Left            =   120
      TabIndex        =   3
      ToolTipText     =   "Back"
      Top             =   0
      Width           =   904
   End
   Begin MSComDlg.CommonDialog CommonDialog1
      Left            =   4800
      Top             =   3240
      _ExtentX        =   677
      _ExtentY        =   677
      _Version        =   393216
   End
   Begin VB.ComboBox Address
      Height          =   288
      ItemData        =   "Form1.frx":0052
      Left            =   720
      List            =   "Form1.frx":0054
      TabIndex        =   0
      ToolTipText     =   "Web Site Address"
      Top             =   480
      Width           =   3900
   End
   Begin ControlResizer.AutoResizer AutoResizer1
      Height          =   3612
      Left            =   2400
      Top             =   1320
      Width           =   4812
      _ExtentX        =   8488
      _ExtentY        =   6371
   End
   Begin VB.Label Label3
      Caption         =   "Fav.Book:"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   4680
      TabIndex        =   10
      Top             =   480
      Width           =   972
   End
   Begin VB.Label Label2
      BorderStyle     =   1  'Fixed Single
      Height          =   420
      Left            =   4920
      TabIndex        =   2
      ToolTipText     =   "Link to what page"
      Top             =   0
      Width           =   4572
   End
   Begin VB.Label Label1
      Caption         =   "http://"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   852
   End
   Begin VB.Menu File
      Caption         =   "&File"
      NegotiatePosition=   1  'Left
      Begin VB.Menu New
         Caption         =   "&New Window"
         Shortcut        =   ^N
      End
      Begin VB.Menu Extrasenabledisable
         Caption         =   "&Extra's"
         Begin VB.Menu ExtraEnable
            Caption         =   "&Enable Extra's"
         End
         Begin VB.Menu ExtraDisable
            Caption         =   "&Disable Extra's"
         End
      End
      Begin VB.Menu Exit
         Caption         =   "E&xit"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu Extra
      Caption         =   "&Extra's"
      Enabled         =   0   'False
      NegotiatePosition=   1  'Left
      Begin VB.Menu link
         Caption         =   "Links"
         Begin VB.Menu Telery
            Caption         =   "Telery"
         End
         Begin VB.Menu line
            Caption         =   "-"
         End
         Begin VB.Menu searcheng
            Caption         =   "Search Engine's"
            Begin VB.Menu vista
               Caption         =   "Altavista"
            End
            Begin VB.Menu Excite
               Caption         =   "Excite"
            End
            Begin VB.Menu bot
               Caption         =   "HotBot"
            End
            Begin VB.Menu Lycos
               Caption         =   "Lycos"
            End
            Begin VB.Menu Magellan
               Caption         =   "Magellan"
            End
            Begin VB.Menu search
               Caption         =   "search.com"
            End
            Begin VB.Menu crawl
               Caption         =   "WebCrawler"
            End
            Begin VB.Menu gans
               Caption         =   "Yahooligans"
            End
            Begin VB.Menu Yahoo
               Caption         =   "Yahoo"
            End
         End
         Begin VB.Menu dwnload
            Caption         =   "Download"
            Begin VB.Menu media
               Caption         =   "Macromedia"
            End
            Begin VB.Menu download
               Caption         =   "download.com"
            End
            Begin VB.Menu shareware
               Caption         =   "shareware.com"
            End
            Begin VB.Menu window
               Caption         =   "Windows95.com"
            End
         End
      End
      Begin VB.Menu Mail
         Caption         =   "Mail"
         Begin VB.Menu SendMail
            Caption         =   "Send Mail"
            Shortcut        =   ^M
         End
      End
      Begin VB.Menu line2
         Caption         =   "-"
      End
      Begin VB.Menu FavBook
         Caption         =   "&Fav. Book"
         Begin VB.Menu favbookadd
            Caption         =   "&Add FavoriteBook"
            Shortcut        =   ^A
         End
         Begin VB.Menu favbookopen
            Caption         =   "&Open FavoriteBook"
            Shortcut        =   ^O
         End
      End
      Begin VB.Menu servermisc
         Caption         =   "&Server Misc."
         Begin VB.Menu IP
            Caption         =   "IP Finder"
            Shortcut        =   ^I
         End
      End
      Begin VB.Menu soundmisc
         Caption         =   "Sound Misc."
         Begin VB.Menu midiplayer
            Caption         =   "Local Midi Player"
            Shortcut        =   ^L
         End
      End
   End
   Begin VB.Menu About
      Caption         =   "&About"
      NegotiatePosition=   1  'Left
      Begin VB.Menu About1
         Caption         =   "About <Your Program Name Here>"
      End
      Begin VB.Menu Credits
         Caption         =   "&Credits"
      End
      Begin VB.Menu mnuline1
         Caption         =   "-"
      End
      Begin VB.Menu register
         Caption         =   "Register"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu mnuFile
      Caption         =   "Popup Menu"
      Visible         =   0   'False
      Begin VB.Menu mnusub1
         Caption         =   "Enable Extra's"
         Shortcut        =   ^E
      End
      Begin VB.Menu mnusub2
         Caption         =   "Disable Extra's"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnusub3
         Caption         =   "Exit"
         Shortcut        =   ^X
      End
   End
Attribute VB_Name = "frmBrowser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As New frmBrowser
Private Sub Author_Click()
WebBrowser1.Navigate ("http://www.telery.com/kf4zpb/")
End Sub
Private Sub bot_Click()
WebBrowser1.Navigate ("http://www.hotbot.com/")
End Sub
Private Sub Command6_Click()
Unload Me
End Sub
Private Sub crawl_Click()
WebBrowser1.Navigate ("http://www.webcrawler.com./")
End Sub
Private Sub Credits_Click()
    Msg = "Name: <Your Name Here> ; E-Mail:<Your E-Mail Here> ; Web Page: <Your Web Page Address Here>"
    MsgTitle = "Author of <Your Program Name Here>"
    prompt = MsgBox(Msg, vbOKOnly, MsgTitle)
    Msg = "This program is protected by copyright laws.  Warrenty Info: The author is not responsible for any damage done to your computer.  It is distributed AS IS."
    MsgTitle = "Warning: Please read the following message."
    prompt = MsgBox(Msg, vbOKOnly, MsgTitle)
End Sub
Private Sub download_Click()
WebBrowser1.Navigate ("http://www.download.com/")
End Sub
Private Sub Excite_Click()
WebBrowser1.Navigate ("http://www.excite.com/")
End Sub
Private Sub Extraenable_Click()
Extra.Enabled = True
End Sub
Private Sub Extradisable_Click()
Extra.Enabled = False
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub favbookadd_Click()
    FN = FreeFile
       Open "favbook.txt" For Append As FN
       Print #FN, Address.Text & Chr(13)
       Close #FN
   End Sub
Private Sub favbookopen_Click()
       On Error Resume Next
       FN = FreeFile
       Open "favbook.txt" For Input As FN
       lstfavs.Visible = True
       Do Until EOF(FN)
           Line Input #FN, NextLine$
           lstfavs.AddItem NextLine$
       Loop
       Close #FN
   End Sub
Private Sub Form_Load()
       url = "c:\blank.htm"
       WebBrowser1.Navigate url
End Sub
   Private Sub Address_Click()
WebBrowser1.Navigate (Address.Text)
    Address.AddItem Item, Index
    On Error Resume Next
   End Sub
Private Sub Address_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Address_Click
End If
End Sub
Private Sub Address_LostFocus()
Address.AddItem (Address.Text)
End Sub
Private Sub gans_Click()
WebBrowser1.Navigate ("http://www.yahooligans.com/")
End Sub
Private Sub Home_Click()
WebBrowser1.Home ("http://www.telery.com")
On Error GoTo HomeErr
HomeErr:
End Sub
Private Sub Command1_Click()
On Error GoTo BackErr
WebBrowser1.GoBack
BackErr:
       Exit Sub
End Sub
Private Sub Command2_Click()
On Error GoTo ForwardErr
WebBrowser1.GoForward

ForwardErr:
       Exit Sub
End Sub
Private Sub Command3_Click()
On Error GoTo RefreshErr
WebBrowser1.Refresh
RefreshErr:
       Exit Sub
End Sub
Private Sub Command4_Click()
On Error GoTo StopErr
WebBrowser1.Stop
StopErr:
       Exit Sub
End Sub
Private Sub Command5_Click()
WebBrowser1.Navigate ("http://www.telery.com/")
       Exit Sub
End Sub
Private Sub IP_Click()
frmIP.Show 1
End Sub
Private Sub lstfavs_Click()
       Address.Text = lstfavs.List(lstfavs.ListIndex)
       Address.Text = lstfavs
       Close #FN
       lstfavs.Visible = False
End Sub
Private Sub Lycos_Click()
WebBrowser1.Navigate ("http://www.lycos.com/")
End Sub
Private Sub Magellan_Click()
WebBrowser1.Navigate ("http://www.mckinley.com/")
End Sub
Private Sub media_Click()
WebBrowser1.Navigate ("http://www.macromedia.com/")
End Sub
Private Sub midiplayer_Click()
frmMidi.Show 1
End Sub
Private Sub mnusub1_Click()
Extra.Enabled = True
End Sub
Private Sub mnusub2_Click()
Extra.Enabled = False
End Sub
Private Sub mnusub3_Click()
Unload Me
End Sub
Private Sub New_Click()
a.Show
End Sub
Private Sub About1_Click()
frmAbout.Show
End Sub
Private Sub Refresh_Click()
WebBrowser1.Refresh
End Sub
Private Sub Picture1_Click()
WebBrowser1.Navigate ("http://www.telery.com/kf4zpb/")
End Sub
Private Sub register_Click()
frmReg.Show
End Sub
Private Sub search_Click()
WebBrowser1.Navigate ("http://www.search.com/")
End Sub
Private Sub SendMail_Click()
frmMain.Show
End Sub
Private Sub shareware_Click()
WebBrowser1.Navigate ("http://www.shareware.com/")
End Sub
Private Sub Stop_Click()
WebBrowser1.Stop
End Sub
Private Sub Telery_Click()
WebBrowser1.Navigate ("http://www.telery.com/")
End Sub
Private Sub vista_Click()
WebBrowser1.Navigate ("http://www.altavista.com/")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    Label2 = Text
End Sub
Private Sub window_Click()
WebBrowser1.Navigate ("http://www.windows95.com/")
End Sub
Private Sub Yahoo_Click()
WebBrowser1.Navigate ("http://www.yahoo.com/")
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
       Me.Caption = Text
   End Sub
      Private Sub Cancel_Click()
Unload Me
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub frmBrowser_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub WebBrowser1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub StatusBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Address_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Command4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub
Private Sub Command6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then PopupMenu mnuFile
End Sub